home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / MacInterface / controls.dcl < prev    next >
Encoding:
Modula Definition  |  1996-12-06  |  1.4 KB  |  46 lines  |  [TEXT/3PRM]
  1. definition module controls;
  2.  
  3. import mac_types;
  4.  
  5. InButton :== 10;
  6. InCheckBox :== 11;
  7. InUpButton :== 20;
  8. InDownButton :== 21;
  9. InPageUp :== 22;
  10. InPageDown :== 23;
  11. InThumb :== 129;
  12.  
  13. ::    ControlHandle :== Int;
  14.  
  15. //    Initialization and Allocation
  16.  
  17. NewControl :: !WindowPtr !Rect !{#Char} !Bool !Int !Int !Int !Int !Int !Toolbox -> (!ControlHandle,!Toolbox);
  18.  
  19. //    Control Display
  20.  
  21. SetCTitle :: !ControlHandle !{#Char} !Toolbox -> Toolbox;
  22. HideControl :: !ControlHandle !Toolbox -> Toolbox;
  23. ShowControl :: !ControlHandle !Toolbox -> Toolbox;
  24. DrawControls :: !WindowPtr !Toolbox -> Toolbox;
  25. UpdtControl :: !WindowPtr !RgnHandle !Toolbox -> Toolbox;
  26.  
  27. //    Mouse Location
  28.  
  29. FindControl :: !Int !Int !WindowPtr !Toolbox -> (!ControlHandle,!Int,!Toolbox);
  30. TrackControl :: !ControlHandle !Int !Int !Int !Toolbox -> (!Int,!Toolbox);
  31.  
  32. //    Control Movement and Sizing
  33.  
  34. MoveControl :: !ControlHandle !Int !Int !Toolbox -> Toolbox;
  35. SizeControl :: !ControlHandle !Int !Int !Toolbox -> Toolbox;
  36.  
  37. //    Control Setting and Range
  38.  
  39. SetCtlValue :: !ControlHandle !Int !Toolbox -> Toolbox;
  40. GetCtlValue :: !ControlHandle !Toolbox -> (!Int,!Toolbox);
  41. SetCtlMin :: !ControlHandle !Int !Toolbox -> Toolbox;
  42. GetCtlMin :: !ControlHandle !Toolbox -> (!Int,!Toolbox);
  43. SetCtlMax :: !ControlHandle !Int !Toolbox -> Toolbox;
  44. GetCtlMax :: !ControlHandle !Toolbox -> (!Int,!Toolbox);
  45. HiliteControl :: !ControlHandle !Int !Toolbox -> Toolbox;
  46.